Team MarHack: Jonny, Quirin, Chris, Luis, Karo
The Idea

Data Example
#read data
simulated_data <- data.table(read.csv(file = "./../Data/game_simulation_data.csv"))
simulated_data[1:5,]
## player1 player2 time_stamp time_to_score who_serves who_scores player_skill1
## 1: 1 0 36.62534 36.62534 2 1 1
## 2: 2 0 49.27873 12.65339 2 1 1
## 3: 3 0 86.19217 36.91344 2 1 1
## 4: 4 0 112.89446 26.70230 2 1 1
## 5: 5 0 133.00451 20.11005 2 1 1
## player_skill2 game_date game_id player1_id player2_id
## 1: 3 2021-01-02 1 Chris Luis
## 2: 3 2021-01-02 1 Chris Luis
## 3: 3 2021-01-02 1 Chris Luis
## 4: 3 2021-01-02 1 Chris Luis
## 5: 3 2021-01-02 1 Chris Luis
#read data
dt <- simulated_data
Player statistics
player_stat
## player games_won games_lost mean_duration games_per_day
## 1: Luis 40 163 14.87 1.532020
## 2: Karo 28 159 14.68 1.471751
## 3: Jonny 173 37 14.98 1.548980
## 4: Chris 165 32 14.76 1.541219
## 5: Quirin 96 102 15.64 1.529118
## 6: Otto 99 108 15.41 1.512479
Player Plots

## No scatterpolar mode specifed:
## Setting the mode to markers
## Read more about this attribute -> https://plotly.com/r/reference/#scatter-mode
## No scatterpolar mode specifed:
## Setting the mode to markers
## Read more about this attribute -> https://plotly.com/r/reference/#scatter-mode
## No scatterpolar mode specifed:
## Setting the mode to markers
## Read more about this attribute -> https://plotly.com/r/reference/#scatter-mode